home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / docs / magic.lha / MAGIC / src / diag.c next >
Encoding:
C/C++ Source or Header  |  1993-01-25  |  1.1 KB  |  43 lines
  1. /*
  2.  * MAGIC Image Diagnostic Tool - shows current list of MAGIC images.
  3.  *
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  */
  7.  
  8. #include <exec/types.h>
  9. #include <exec/memory.h>
  10. #include <libraries/dos.h>
  11. #include <clib/exec_protos.h>
  12. #include <clib/alib_protos.h>
  13. #include <clib/dos_protos.h>
  14. #include <stdlib.h>
  15. #include <string.h>
  16. #include <stdio.h>
  17.  
  18. #include <magic/magic.h>
  19. #include <magic/magic_protos.h>
  20. #include <magic/magic_pragmas.h>
  21.  
  22. struct MagicBase *MagicBase;
  23.  
  24.  
  25. void main (void)
  26. {
  27.    struct MagicImage *pi;
  28.    struct Task *task;
  29.  
  30.    if (MagicBase = (struct MagicBase *)OpenLibrary("magic.library", 0)) {
  31.       printf("Counter = %ld\n\n", MagicBase->Counter);
  32.  
  33.       pi = (struct MagicImage *)MagicBase->MagicImageList.lh_Head;
  34.       while (pi->Node.ln_Succ) {
  35.          printf("\"%ls\" (W=%ld, H=%ld, D=%ld)\n", pi->Name, pi->Width, pi->Height, pi->Depth);
  36.          task = pi->Owner;
  37.          if (task->tc_Node.ln_Name) printf("  (Owned by %ls)\n", task->tc_Node.ln_Name);
  38.          pi = (struct MagicImage *)pi->Node.ln_Succ;
  39.       }
  40.       CloseLibrary((struct Library *)MagicBase);
  41.    }
  42. }
  43.